home *** CD-ROM | disk | FTP | other *** search
/ Amoszine 8 / Amoszine 8 (Disk 2 of 3).adf / AMON_Extension.lha / amon_extension / examples_asc / TestAdd.asc < prev   
Text File  |  1995-08-06  |  337b  |  22 lines
  1. ' Program: Test & Add array Example  
  2. '  Author: Paul Overy
  3. '    Date: 6/8/95
  4. '
  5. Dim TEST(10),A(10)
  6. TEST=1
  7. '
  8. Print "Test For";TEST
  9. For K=0 To 10
  10.    TEST(K)=Rnd(2)
  11.    A(K)=Rnd(100)
  12.    Print TEST(K);"   ";A(K)
  13. Next K
  14. '
  15. Test Add Varptr(TEST(0)),Varptr(A(0)),TEST,-100,11
  16. '
  17. Print "---------"
  18. For K=0 To 10
  19.    Print TEST(K);"   ";A(K)
  20. Next K
  21.  
  22.